x0 fdh y0 sub dh sub translate w h inv[sx 0 0 sy neg 0 h]{currentfile imbuf fhbinim{readstring}{readhexstring}ifelse pop}

/imbuf w 7 add 8 idiv string def

/inv ^7 def